home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)za.d64 / buffer.proc < prev    next >
Text File  |  2007-03-01  |  166b  |  8 lines
  1. 9000 PROC BUFFER(A$) CLOSED
  2. 9010   L:=LEN(A$) MOD 11
  3. 9020   FOR X#:=1 TO L DO
  4. 9030     POKE 630+X#,ORD(A$(X#))
  5. 9040   ENDFOR X#
  6. 9050   POKE 198,L
  7. 9060 ENDPROC BUFFER
  8.